Monster Media 1996 #14/Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO/wildcat/allfl_20.zip/ONDEMAND.WCX

Wildcat! WCX | 1996-01-01 | 20KB | 1,486 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  19585 bytes  01/28/123  10:06:42pm
'! Code Segment Size  :17583 bytes
'! Data Segment Size  :22430 bytes
'! String Segment Size:2002 bytes
'! Compiled with WCC version 4.01

      Type Type42
        s0 As String*65
        s65 As String*77
        s142 As String*59
      End Type

      Type Type41
        b0(1 To 4095) As Byte
      End Type

      Type Type40
        l0 As Long
        b4 As Byte
        t41_5 As Type41
        l4100 As Long
        b4104 As Byte
        w4105 As Word
      End Type

      Type Type39
        Filler0(1 To 5) As Byte
        s5 As String*3
        s8 As String*3
        s11 As String*79
        s90 As String*79
        s169 As String*67
        b236(1 To 4095) As Byte
      End Type

      Type Type38
        Filler0(1 To 3932) As Byte
        b3932 As Byte
      End Type

      Type Type37
        b0 As Byte
        s1 As String*160
      End Type

      Type Type36
        s0 As String*1
        s1 As String*65
        s66 As String*59
        s125 As String*65
        l190 As Long
      End Type

      Type Type35
        s0 As String*31
        t36_31(1 To 20) As Type36
        s3911 As String*20
        b3931 As Byte
        b3932 As Byte
      End Type

      Type Type34
        Filler0(1 To 66) As Byte
        s66 As String*59
      End Type

      Type Type33
        Filler0(1 To 31) As Byte
        t34_31(1 To 20) As Type34
        Filler2531(1 To 1401) As Byte
        b3932 As Byte
        b3933 As Byte
      End Type

      Type Type32
        s0 As String*31
        Filler31(1 To 3900) As Byte
        b3931 As Byte
        b3932 As Byte
      End Type

      Type Type31
        s0 As String*1
        s1 As String*65
        s66 As String*59
        s125 As String*65
        l190 As Long
      End Type

      Type Type30
        Filler0(1 To 31) As Byte
        t31_31(1 To 20) As Type31
        Filler3911(1 To 20) As Byte
        b3931 As Byte
      End Type

      Type Type29
        Filler0(1 To 26) As Byte
        w26 As Word
        Filler28(1 To 2) As Byte
        w30 As Word
      End Type

      Type Type28
        s0 As String*3
        s3 As String*8
        s11 As String*30
        s41 As String*25
        s66(1 To 10) As String*80
        l866 As Long
      End Type

      Type Type27
        s0 As String*5
        s5 As String*12
        s17 As String*67
        b84 As Byte
        l85 As Long
        s89 As String*79
        s168 As String*12
        s180 As String*67
        s247 As String*79
        s326 As String*67
        t41_393 As Type41
        l4488 As Long
        b4492 As Byte
        w4493 As Word
      End Type

      Type Type26
        s0 As String*25
        s25 As String*10
        s35 As String*15
        s50 As String*70
        s120 As String*70
      End Type

      Declare Function Func780(s65534 As String) As Long
      Declare Function Func892(s65534 As String) As Boolean
      Declare Function Func1415(l65534 As Long, l65532 As Long) As Long
      Declare Sub Sub1468(l65534 As Long, l65532 As Long)
      Declare Function Func1568(i65534 As Integer) As Boolean
      Declare Sub Sub1693(i65534 As Integer)
      Declare Sub Sub1830(i65534 As Integer)
      Declare Sub Sub1967(i65534 As Integer)
      Declare Sub Sub2069(s65534 As String)
      Declare Sub Sub2146
      Declare Sub Sub2220(s65534 As String)
      Declare Sub Sub2316
      Declare Sub Sub2341
      Declare Function Func2361(l65534 As Long) As Long
'!      Declare Function Func2818(s65534 As String) As Long
      Declare Sub Sub2954(t30_65534 As Type30, s65532 As String, s65530 As String, s65528 As String, s65526 As String, l65524 As Long)
      Declare Sub Sub3265(t32_65534 As Type32, s65532 As String)
      Declare Sub Sub3318(t33_65534 As Type33)
      Declare Sub Sub3572
      Declare Function Func3710(t35_65534 As Type35) As String
      Declare Sub Sub6381(s65534 As String)
      Declare Function Func6661(i65534 As Integer) As String
      Declare Function Func6833(s65534 As String, b65532 As Byte, i65530 As Integer, i65528 As Integer) As Integer
      Declare Sub Sub7321(i65534 As Integer, i65532 As Integer)
      Declare Sub Sub7868(i65534 As Integer)
      Declare Function Func8018(i65534 As Integer, i65532 As Integer) As Integer
      Declare Sub Sub8923
      Declare Sub Sub9774(t30_65534 As Type30, s65532 As String, i65530 As Integer, s65528 As String, l65526 As Long)
      Declare Sub Sub9934
      Declare Sub Sub10760
      Declare Sub Sub11802
      Declare Sub Sub12409
'!      Declare Sub Sub12705(l65534 As Long)
      Declare Function Func13306(w65534 As Word) As Boolean
      Declare Function Func13430(i65534 As Integer) As Boolean
      Declare Function Func13516 As Boolean
      Declare Function Func13711 As Boolean
      Declare Sub Sub14047
      Declare Sub Sub16099

      Dim t26_4463 As Type26
      Dim t28_4653 As Type28
      Dim s5533 As String
      Dim t27_5537 As Type27
      Dim b10032(0 To 7) As Byte
      Dim b10040(0 To 7) As Byte
      Dim s10048 As String
      Dim t38_10052 As Type38
      Dim t39_13986 As Type39
      Dim dt18317 As DateTime
      Dim t40_18323 As Type40

      Dim s65532_ As String '! Temporary

      t26_4463.s0 = "proFILES"
      t26_4463.s25 = "2.0"
      t26_4463.s35 = "01/01/96"
      t26_4463.s50 = "Copyright (C) 1996 Prasanth Pulavarthi. All Rights Reserved."
      t26_4463.s120 = t26_4463.s0 + " " + t26_4463.s25 + " for Wildcat! 4.01+"
      s5533 = ProgPath + "ALLFILES.DAT"
      t27_5537.s0 = t26_4463.s25
      b10032(0) = 1
      b10032(1) = 2
      b10032(2) = 4
      b10032(3) = 8
      b10032(4) = 16
      b10032(5) = 32
      b10032(6) = 64
      b10032(7) = 128
      b10040(0) = 254
      b10040(1) = 253
      b10040(2) = 251
      b10040(3) = 247
      b10040(4) = 239
      b10040(5) = 223
      b10040(6) = 191
      b10040(7) = 127
      Sub6381(("PROFILES.PRM"))
      s10048 = "PROFILES"
      t26_4463.s0 = "OnDemand"
      MorePrompt(0)
      Sub16099
      StatusClose
      Print DefColor
      Cls
      MorePrompt(-1)
      Sub2220(("OnDemand terminated NORMALLY."))
      End
      Catch 15
        Del s5533
        Del t27_5537.s17 + t27_5537.s5
        Del t27_5537.s180 + t27_5537.s168
        Sub12409
        Sub2220(("OnDemand terminated by DROPPING CARRIER."))
        End
      GoTo 768
  768

'! Called 2 times
      Function Func780(s65534 As String) As Long
        Dim l65524 As Long
        Dim i65528 As Integer

        l65524 = 0
        i65528 = Len(s65534)
  809   Do While i65528 > 0
          l65524 = l65524 + Asc(Mid(s65534, i65528, 1))
          i65528 = i65528 - 1
        Loop
  874   Func780 = l65524
      End Function

'! Called 1 time
      Function Func892(s65534 As String) As Boolean
        Dim s65513 As String '! Temporary
        Dim l65517 As Long
        Dim s65519 As String '! Temporary
        Dim i65521 As Integer
        Dim s65523 As String
        Dim i65527 As Integer
        Dim l65529 As Long

        Func892 = 0
        If Exists(ProgPath + s65534 + ".LIC") Then
          Open ProgPath + s65534 + ".LIC" For Random As 1 Len = 880 '! This value should probably be replaced with a "SizeOf" expression
          Get 1, -1, t28_4653 '! 880 bytes
          Close 1
          If t28_4653.s0 <> "LIC" Then
          Else
 1012       If t28_4653.s3 <> s65534 Then
            Else
 1042         If UCase(t28_4653.s11) <> UCase(MakeWild.BBSName) Then
              Else
 1082           If UCase(t28_4653.s41) <> UCase(MakeWild.SysopName) Then
                Else
 1122
                  l65529 = Func780((t28_4653.s0 + t28_4653.s3 + t28_4653.s11 + t28_4653.s41))
 1212             For i65527 = 1 To 10 Step 1
                    s65523 = t28_4653.s66(i65527)
                    l65529 = l65529 + Func780((s65523))
                  Next
 1366             If l65529 <> t28_4653.l866 Then
                  Else
 1395               Func892 = -1
                  End If
                End If
              End If
            End If
          End If
        End If
 1403
      End Function

'! Called 6 times
      Function Func1415(l65534 As Long, l65532 As Long) As Long
        Func1415 = 0
        If l65534 And l65532 Then
          Func1415 = -1
        End If
 1460
      End Function

'! Called 4 times
      Sub Sub1468(l65534 As Long, l65532 As Long)
        Dim l65524 As Long '! Temporary
        Dim l65528 As Long '! Temporary

        If Func1415((l65534), (l65532)) Then
          FlagClear l65534, l65532
        Else
 1550     FlagSet l65534, l65532
        End If
 1565
      End Sub

'! Called 3 times
      Function Func1568(i65534 As Integer) As Boolean
        If (t27_5537.t41_393(i65534 Div 8 + 1).b0 And b10032(i65534 Mod 8)) <> 0 Then
          Func1568 = -1
        Else
 1679     Func1568 = 0
        End If
 1685
      End Function

'! Called 2 times
      Sub Sub1693(i65534 As Integer)
        t27_5537.t41_393(i65534 Div 8 + 1).b0 = t27_5537.t41_393(i65534 Div 8 + 1).b0 Or b10032(i65534 Mod 8)
      End Sub

'! Called 1 time
      Sub Sub1830(i65534 As Integer)
        t27_5537.t41_393(i65534 Div 8 + 1).b0 = t27_5537.t41_393(i65534 Div 8 + 1).b0 And b10040(i65534 Mod 8)
      End Sub

'! Called 4 times
      Sub Sub1967(i65534 As Integer)
        Dim i65532 As Integer '! Temporary

        If Func1568((i65534)) Then
          Sub1830((i65534))
        Else
 2040
          Sub1693((i65534))
        End If
 2066
      End Sub

'! Called 2 times
      Sub Sub2069(s65534 As String)
        Dim i65532 As Integer

        i65532 = FreeFile
        Open ProgPath + "PROFILES.LOG" For Append As i65532
        Print #i65532, "      * "; s65534
        Close i65532
      End Sub

'! Called 1 time
      Sub Sub2146
        Dim i65534 As Integer

        i65534 = FreeFile
        Open ProgPath + "PROFILES.LOG" For Append As i65534
        Print #i65534, String(79, "-")
        Close i65534
      End Sub

'! Called 4 times
      Sub Sub2220(s65534 As String)
        Dim t65528 As Time
        Dim i65532 As Integer

        i65532 = FreeFile
        CurrentTime t65528
        Open ProgPath + "PROFILES.LOG" For Append As i65532
        Print #i65532, FormatTime(t65528, "hh:mm"); " "; s65534
        Close i65532
      End Sub

'! Called 1 time
      Sub Sub2316
        ActivityLog ProgName + " ERROR - See PROFILES.LOG for info."
      End Sub

'! Called 1 time
      Sub Sub2341
        Delay 0
      End Sub

'! Called 2 times
      Function Func2361(l65534 As Long) As Long
        Dim l65439 As Long
        Dim l65443 As Long
        Dim i65447 As Integer
        Dim b65449 As Byte
        Dim s65454 As String
        Dim s65458 As String
        Dim l65462 As Long
        Dim s65466 As String*32
        Dim t29_65498 As Type29

        i65447 = FreeFile
        Open ProgPath + s10048 + ".HLP" For Random As i65447 Len = 32 '! This value should probably be replaced with a "SizeOf" expression
        If l65534 > LOF(i65447) Then
          Close i65447
          Func2361 = - 1
          DisplayPrompt 16
          WaitEnter
        Else
 2466     Get i65447, l65534, t29_65498 '! 32 bytes
 2536     For l65462 = l65534 + 1 To l65534 + 1 + t29_65498.w26 Step 1
            Get i65447, l65462, s65466 '! 32 bytes
            s65458 = s65458 + s65466
            b65449 = InStr(s65458, Chr(13) + Chr(10))
 2644       Do While b65449 > 0
              s65454 = Left(s65458, b65449)
              Print s65454
              s65458 = Mid(s65458, b65449 + 2, Len(s65458))
              b65449 = InStr(s65458, Chr(13) + Chr(10))
            Loop
 2739     Next
 2762     Close i65447
          WaitEnter
          Func2361 = t29_65498.w26 + t29_65498.w30
        End If
 2798
      End Function

'! Called 0 times
'!      Function Func2818(s65534 As String) As Long
'!        Func2818 = - 1
'!        Open ProgPath + s10048 + ".HLP" For Random As 1 Len = 32 '! This value should probably be replaced with a "SizeOf" expression
'!        IndexOpen(ProgPath + s10048 + ".IDX")
'!        s65534 = Pad(UCase(s65534), 15)
'!        If IndexLookUp(s65534) = s65534 Then
'!          Func2818 = IndexNextRef
'!        End If
'! 2938   Close 1
'!        IndexClose
'!      End Function

'! Called 2 times
      Sub Sub2954(t30_65534 As Type30, s65532 As String, s65530 As String, s65528 As String, s65526 As String, l65524 As Long)
        Inc t30_65534.b3931
        t30_65534.t31_31(t30_65534.b3931).s0 = s65532
        t30_65534.t31_31(t30_65534.b3931).s1 = s65530
        t30_65534.t31_31(t30_65534.b3931).s66 = s65528
        t30_65534.t31_31(t30_65534.b3931).s125 = s65526
        t30_65534.t31_31(t30_65534.b3931).l190 = l65524
      End Sub

'! Called 4 times
      Sub Sub3265(t32_65534 As Type32, s65532 As String)
        t32_65534.s0 = s65532
        t32_65534.b3931 = 0
        t32_65534.b3932 = 1
      End Sub

'! Called 7 times
      Sub Sub3318(t33_65534 As Type33)
        MorePrompt(0)
        Print "@NOPAUSE@";
        Print Chr(27) + "[s";
        Locate 5, 1
        Locate 5 + t33_65534.b3933 - 1, 1
        Print "   "
        Locate 5 + t33_65534.b3932 - 1, 1
        Print " @0C@"; Chr(16)
        Locate User.LinesPerPage, 1
        Print "@1F@ " + Pad(t33_65534.t34_31(t33_65534.b3932).s66, 59) + "@07@";
        Print Chr(27) + "[u";
        t33_65534.b3933 = t33_65534.b3932
      End Sub

'! Called 3 times
      Sub Sub3572
        Dim l65528 As Long
        Dim i65532 As Integer
        Dim i65534 As Integer

 3614   For i65534 = 5 To User.LinesPerPage - 1 Step 1
          Locate i65534, 1
          ClrEOL
        Next
 3700   Locate 5, 1
      End Sub

'! Called 4 times
      Function Func3710(t35_65534 As Type35) As String
        Dim l65509 As Long '! Temporary
        Dim l65513 As Long
        Dim i65517 As Integer
        Dim i65519 As Integer
        Dim s65521 As String
        Dim i65527 As Integer
        Dim o65529 As Boolean

 3719   o65529 = 0
        Do
 3725     Cls
          Print Chr(27) + "[s";
          Locate User.LinesPerPage, 1
          Print "@1F@ " + LeftPad(" │ Press ? for help", 78) + " @07@";
          Print Chr(27) + "[u";
          SubText 1, t26_4463.s0
          SubText 2, t26_4463.s25
          SubText 3, Pad(t35_65534.s0, 31)
          SubText 4, t26_4463.s35
          Print "@71@ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ";
          Print "@71@  @1F@  @SUB1@ @SUB2@  @07@ @71@ @1F@  @SUB3@  @07@ @70@ @1F@  Compiled: @SUB4@  @07@ @70@ ";
          Print "@70@  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ";
          Locate 5, 1
          t35_65534.s3911 = ""
 3945     For i65527 = 1 To t35_65534.b3931 Step 1
            t35_65534.s3911 = t35_65534.s3911 + t35_65534.t36_31(i65527).s0
            SubText 1, t35_65534.t36_31(i65527).s125
            Print "@07@   @09@[@0F@"; t35_65534.t36_31(i65527).s0; "@09@] @0B@"; t35_65534.t36_31(i65527).s1
          Next
 4243     Sub3318(t35_65534.s0)
          Print
          Print "@07@Use your arrow keys to move cursor. Press ENTER or the hotkey to select."
          Print "@0E@Your command >> @0F@";
          Do
            Do
 4274         s65521 = UCase(InKey(1213417543))
            Loop Until s65521 <> ""
            i65527 = Asc(s65521)
            If s65521 = Chr(27) Or s65521 = Chr(0) Then
              Do
 4347           s65521 = InKey(1213417543)
                If s65521 <> "" Then
                  i65527 = Asc(s65521) + 1000
                End If
 4393         Loop Until s65521 = ""
            End If
 4410       i65519 = i65527
            If i65519 = 1077 Then GoTo 4484
            If i65519 = 1080 Then GoTo 4484
            If i65519 = 1066 Then GoTo 4484
            If i65519 = 1067 Then
 4484         Inc t35_65534.b3932
              If t35_65534.b3932 > t35_65534.b3931 Then
                t35_65534.b3932 = 1
              End If
 4543         Sub3318(t35_65534.s0)
            Else
 4560         If i65519 = 1075 Then GoTo 4624
              If i65519 = 1072 Then GoTo 4624
              If i65519 = 1065 Then GoTo 4624
              If i65519 = 1068 Then
 4624           Dec t35_65534.b3932
                If t35_65534.b3932 < 1 Then
                  t35_65534.b3932 = t35_65534.b3931
                End If
 4683           Sub3318(t35_65534.s0)
              Else
 4700           If i65519 = Asc("?") Then
                  o65529 = -1
                  Print Chr(27) + "[s";
                  Locate User.LinesPerPage, 1
                  Print "@1F@ " + LeftPad(" │ ESC to exit help", 78) + " @07@";
                  Print Chr(27) + "[u";
                  MoveLeft 80
                  ClrEOL
                  Print "@0E@Select the command you need help with >> @0F@";
                  Sub3318(t35_65534.s0)
                Else
 4838             If i65519 = 13 Then
                    Func3710 = t35_65534.t36_31(t35_65534.b3932).s0
                    Print "@0F@"; t35_65534.t36_31(t35_65534.b3932).s0
                    If o65529 Then
                      Sub3572
                      SubText 1, t35_65534.t36_31(t35_65534.b3932).s125
                      Print "@09@[@0F@"; t35_65534.t36_31(t35_65534.b3932).s0; "@09@] @0B@"; t35_65534.t36_31(t35_65534.b3932).s1
                      Print
                      If t35_65534.t36_31(t35_65534.b3932).l190 = 0 Then
                        If t35_65534.t36_31(t35_65534.b3932).s66 = "" Then
                          DisplayPrompt 16
                        Else
 5296                     Print "@0E@"; t35_65534.t36_31(t35_65534.b3932).s66
                        End If
 5359                   Print
                        WaitEnter
                      Else
 5370
                        Func2361((t35_65534.t36_31(t35_65534.b3932).l190))
                      End If
 5441                 GoTo 3719
                    Else
 5453                 GoTo 6366
                    End If
 5459             Else
 5465               If i65519 = 27 Then
                      If o65529 Then
                        o65529 = 0
                        Print Chr(27) + "[s";
                        Locate User.LinesPerPage, 1
                        Print "@1F@ " + LeftPad(" │ Press ? for help", 78) + " @07@";
                        Print Chr(27) + "[u";
                        MoveLeft 80
                        ClrEOL
                        Print "@0E@Your command >> @0F@";
                        Sub3318(t35_65534.s0)
                      Else
 5606                   t35_65534.b3932 = t35_65534.b3931
                        Sub3318(t35_65534.s0)
                        Func3710 = t35_65534.t36_31(t35_65534.b3931).s0
                        Print "@0F@"; t35_65534.t36_31(t35_65534.b3931).s0
                        GoTo 6366
                      End If
 5758               Else
 5764                 If InStr(t35_65534.s3911, s65521) > 0 Then
                        t35_65534.b3932 = InStr(t35_65534.s3911, s65521)
                        Sub3318(t35_65534.s0)
                        Func3710 = s65521
                        Print "@0F@"; s65521
                        If o65529 Then
                          Sub3572
                          SubText 1, t35_65534.t36_31(t35_65534.b3932).s125
                          Print "@09@[@0F@"; t35_65534.t36_31(t35_65534.b3932).s0; "@09@] @0B@"; t35_65534.t36_31(t35_65534.b3932).s1
                          Print
                          If t35_65534.t36_31(t35_65534.b3932).l190 = 0 Then
                            If t35_65534.t36_31(t35_65534.b3932).s66 = "" Then
                              DisplayPrompt 16
                            Else
 6191                         Print "@0E@"; t35_65534.t36_31(t35_65534.b3932).s66
                            End If
 6254                       Print
                            WaitEnter
                          Else
 6265
                            Func2361((t35_65534.t36_31(t35_65534.b3932).l190))
                          End If
 6336                     GoTo 3719
                        Else
 6348                     GoTo 6366
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
 6354     Loop
        Loop
 6366
      End Function

'! Called 1 time
      Sub Sub6381(s65534 As String)
        If User.Language <> "" Then
          If Exists(MakeWild.LanguagePath + User.Language + "\" + s65534) Then
            Open MakeWild.LanguagePath + User.Language + "\" + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
            GoTo 6658
          End If
        End If
 6522   If Exists(MakeWild.LanguagePath + s65534) Then
          Open MakeWild.LanguagePath + s65534 For Random As 9 Len = 161 '! This value should probably be replaced with a "SizeOf" expression
          GoTo 6658
        End If
 6590   Error 10
        Catch 10
          Print "Unable to open prompt file: "; s65534
          ActivityLog ProgName + " - Unable to open prompt file: " + s65534
          WaitEnter
          End
        GoTo 6658
 6658
      End Sub

'! Called 20 times
      Function Func6661(i65534 As Integer) As String
        Dim s65365 As String
        Dim t37_65369 As Type37

        If RIPEnabled Then
          i65534 = i65534 + LOF(9) / 2
        End If
 6710   Get 9, i65534, t37_65369 '! 161 bytes
        s65365 = Left(t37_65369.s1, t37_65369.b0)
        If Left(s65365, 2) = "<<" Then
          DisplayFile(Mid(s65365, 3, Len(s65365) - 2))
          Func6661 = ""
        Else
 6810     Func6661 = s65365
        End If
 6818
      End Function

'! Called 2 times
      Function Func6833(s65534 As String, b65532 As Byte, i65530 As Integer, i65528 As Integer) As Integer
        Dim l65512 As Long
        Dim i65516 As Integer
        Dim i65518 As Integer
        Dim o65520 As Boolean
        Dim o65521 As Boolean
        Dim i65522 As Integer
        Dim i65524 As Integer

        i65524 = 0
        o65521 = 0
        o65520 = 0
 6893   For i65518 = b65532 To Len(s65534) Step 1
          If Mid(s65534, i65518, 1) = "," Then
            GoTo 7216
          Else
 6984       If Mid(s65534, i65518, 1) = " " Then
              GoTo 7216
            Else
 7025         If Mid(s65534, i65518, 1) = "-" Then
                If o65521 = -1 Then
                  o65520 = -1
                End If
 7078           i65530 = i65524
                i65524 = 0
                o65521 = -1
              Else
 7110           If Not o65520 Then
                  i65522 = Val(Mid(s65534, i65518, 1))
                  If i65522 >= 0 And i65522 <= 9 Then
                    i65524 = i65524 * 10 + i65522
                  End If
                End If
              End If
            End If
          End If
 7193   Next
 7216   If o65520 Then
          i65530 = 0
          i65528 = 0
          i65524 = 0
        Else
 7255     If o65521 Then
            i65528 = i65524
            i65524 = - 1
          End If
        End If
 7287   b65532 = i65518 + 1
        Func6833 = i65524
      End Function

'! Called 1 time
      Sub Sub7321(i65534 As Integer, i65532 As Integer)
        Dim i65421 As Integer '! Temporary
        Dim l65423 As Long
        Dim i65427 As Integer
        Dim far65433 As FileAreaRecord
        Dim i65530 As Integer

        DisplayPrompt 1129
        Print
        Print
 7371   For i65530 = i65534 To i65532 Step 1
          GetFileArea(far65433, i65530)
          If Func13430((i65530)) Then
            SubText 1, LeftPad(Str(i65530), 5)
          Else
 7487
            SubText 1, Func6661((1)) + LeftPad(Str(i65530), 5)
          End If
 7528
          If Func1568((i65530)) And Func13430((i65530)) Then
            SubText 2, "*"
          Else
 7600       SubText 2, " "
          End If
 7610
          If Func13430((i65530)) Then
            SubText 3, Pad(far65433.Name, 31 + Len(far65433.Name) - AtLen(far65433.Name))
          Else
 7684
            SubText 3, Func6661((1)) + Pad(far65433.Name, 31 + Len(far65433.Name) - AtLen(far65433.Name))
          End If
 7745     DisplayPrompt 829
          Sub2341
        Next
 7780   Print
        SubText 1, "1"
        SubText 2, Str(MakeWild.MaxFileAreas)
        If i65534 > 1 Then
          DisplayPrompt 1313
        Else
 7839     DisplayPrompt 1312
        End If
 7845   Print Chr(27) + "[s";
      End Sub

'! Called 3 times
      Sub Sub7868(i65534 As Integer)
        Dim i65532 As Integer '! Temporary

        If i65534 Mod 2 = 0 Then
          Locate 2 + i65534 Div 2, 48
        Else
 7923     Locate 3 + i65534 Div 2, 8
        End If
 7943
        If Func1568((i65534)) Then
          Print "@0C@*";
        Else
 7990     Print " ";
        End If
 7999   Print Chr(27) + "[u";
      End Sub

'! Called 1 time
      Function Func8018(i65534 As Integer, i65532 As Integer) As Integer
        Dim i65501 As Integer '! Temporary
        Dim l65503 As Long
        Dim s65505 As String '! Temporary
        Dim i65507 As Integer '! Temporary
        Dim l65509 As Long
        Dim i65511 As Integer '! Temporary
        Dim i65513 As Integer '! Temporary
        Dim i65515 As Integer
        Dim i65517 As Integer
        Dim b65519 As Byte
        Dim s65520 As String
        Dim s65524 As String
        Dim i65528 As Integer

        Sub7321((i65534), (i65532))
        Do
 8073     s65524 = InputMask("", String(10, "X"), "", 1213417543)
          s65520 = UCase(s65524)
          If s65520 = "C" Then GoTo 8150
          If s65520 = "" Then
 8150       Func8018 = -1
            GoTo 8907
          Else
 8170       If s65520 = "N" Then
              Func8018 = -3
              GoTo 8907
            Else
 8207         If s65520 = "P" Then
                If i65534 > 1 Then
                  Func8018 = -2
                  GoTo 8907
                End If
 8255         Else
 8261           If s65520 = "S" Then GoTo 8295
                If s65520 = "L" Then
 8295             Func8018 = -4
                  GoTo 8907
                Else
 8315             If s65520 = "A" Then
 8361               For i65528 = 1 To MakeWild.MaxFileAreas Step 1
                      If Func13430((i65528)) Then
                        Sub1967((i65528))
                        Sub7868((i65528))
                      End If
 8489               Next
 8512             Else
 8518               b65519 = 1
 8525               Do While b65519 <= Len(s65524)
                      i65528 = Func6833((s65524), b65519, i65517, i65515)
                      If i65528 < 0 Then
 8626                   For i65528 = i65517 To i65515 Step 1
                          If Func13430((i65528)) Then
                            Sub1967((i65528))
                            Sub7868((i65528))
                          End If
 8754                   Next
 8777                 Else
 8783                   If i65528 >= 1 And i65528 <= MakeWild.MaxFileAreas Then
                          If Func13430((i65528)) Then
                            Sub1967((i65528))
                            Sub7868((i65528))
                          End If
                        End If
                      End If
 8895               Loop
                  End If
                End If
              End If
            End If
          End If
 8901   Loop
 8907
      End Function

'! Called 1 time
      Sub Sub8923
        Dim i65504 As Integer '! Temporary
        Dim i65506 As Integer '! Temporary
        Dim l65508 As Long
        Dim i65512 As Integer
        Dim i65514 As Integer
        Dim i65516 As Integer
        Dim b65518 As Byte
        Dim i65519 As Integer
        Dim i65521 As Integer
        Dim i65523 As Integer
        Dim s65525 As String
        Dim o65529 As Boolean
        Dim i65530 As Integer
        Dim s65532 As String

        o65529 = -1
        Do
 8940     SubText 1, "1"
          SubText 2, Str(MakeWild.MaxFileAreas)
          DisplayPrompt 1217
          Input s65532
          s65525 = UCase(s65532)
          If s65525 = "" Then
 9037       For i65530 = 1 To MakeWild.MaxFileAreas Step 1
              If Func13430((i65530)) Then
                Sub1693((i65530))
              End If
 9141       Next
 9164     Else
 9170       If s65525 = "Q" Then
              GoTo 9763
            Else
 9199         If s65525 = "H" Then
                DisplayHelp "LISTFC.BBS"
                WaitEnter
                o65529 = 0
              Else
 9239           If s65525 = "L" Then
                  i65523 = 1
                  Do
 9263               i65521 = i65523 - 1 + (User.LinesPerPage - 5) * 2
                    If i65521 > MakeWild.MaxFileAreas Then
                      i65521 = MakeWild.MaxFileAreas
                    End If
 9335
                    i65519 = Func8018((i65523), (i65521))
                    If i65519 = -1 Then
                      i65523 = i65523 + (User.LinesPerPage - 5) * 2
                    Else
 9434                 If i65519 = -2 Then
                        i65523 = i65523 - (User.LinesPerPage - 5) * 2
                      Else
 9486                   If i65519 = -4 Then
                          o65529 = 0
                          GoTo 9555
                          GoTo 9520
                        End If
                      End If
                    End If
 9520               If i65523 > MakeWild.MaxFileAreas Then
                      GoTo 9555
                    End If
 9549             Loop
 9555           Else
 9561             b65518 = 1
 9568             Do While b65518 <= Len(s65532)
                    i65530 = Func6833((s65532), b65518, i65516, i65514)
                    If i65530 >= 1 And i65530 <= MakeWild.MaxFileAreas Then
                      If Func13430((i65530)) Then
                        Sub1967((i65530))
                      End If
 9716               Else
 9722                 Print
                      DisplayPrompt 850
                      Print
                      o65529 = 0
                      GoTo 9750
                    End If
 9744             Loop
                End If
              End If
            End If
          End If
 9750   Loop While Not o65529
 9763
      End Sub

'! Called 23 times
      Sub Sub9774(t30_65534 As Type30, s65532 As String, i65530 As Integer, s65528 As String, l65526 As Long)
        Dim l65506 As Long '! Temporary
        Dim s65510 As String '! Temporary
        Dim s65514 As String '! Temporary
        Dim i65516 As Integer '! Temporary
        Dim s65518 As String '! Temporary
        Dim s65522 As String '! Temporary

        Sub2954(t30_65534, (s65532), (Func6661(i65530)), (Func6661((i65530 + 1))), (s65528), (l65526))
      End Sub

'! Called 1 time
      Sub Sub9934
        Dim l65518 As Long '! Temporary
        Dim s65522 As String '! Temporary
        Dim i65526 As Integer '! Temporary
        Dim s65528 As String '! Temporary
        Dim i65530 As Integer '! Temporary
        Dim s65532 As String

        Sub3265(t38_10052.??0, (Func6661((16 + 0))))
        Sub9774(t38_10052.??0, ("S"), (16 + 1), (""), (1))
        Sub9774(t38_10052.??0, ("D"), (16 + 3), (""), (20))
        Sub9774(t38_10052.??0, ("F"), (16 + 5), (""), (36))
        Sub9774(t38_10052.??0, ("E"), (16 + 7), (""), (60))
        Sub9774(t38_10052.??0, ("N"), (16 + 9), (""), (80))
        Sub9774(t38_10052.??0, ("Q"), (16 + 11), (""), (0))
        If t27_5537.b84 > 0 Then
          t38_10052.b3932 = t27_5537.b84
        End If
10538   s65532 = UCase(Func3710(t38_10052.??0))
        If s65532 = "S" Then
          t27_5537.b84 = 1
        Else
10588     If s65532 = "D" Then
            t27_5537.b84 = 2
          Else
10622       If s65532 = "F" Then
              t27_5537.b84 = 3
            Else
10656         If s65532 = "E" Then
                t27_5537.b84 = 4
              Else
10690           If s65532 = "N" Then
                  t27_5537.b84 = 5
                Else
10724             If s65532 = "Q" Then
                    GoTo 10753
                    GoTo 10753
                  End If
                End If
              End If
            End If
          End If
        End If
10753
      End Sub

'! Called 1 time
      Sub Sub10760
        Dim l65508 As Long '! Temporary
        Dim s65512 As String '! Temporary
        Dim i65516 As Integer '! Temporary
        Dim s65518 As String '! Temporary
        Dim i65520 As Integer '! Temporary
        Dim s65522 As String
        Dim d65526 As Date
        Dim s65532 As String

        Sub3265(t38_10052.??0, (Func6661((29 + 0))))
        Sub9774(t38_10052.??0, ("A"), (29 + 1), (""), (0))
        Sub9774(t38_10052.??0, ("D"), (29 + 3), (""), (0))
        Sub9774(t38_10052.??0, ("S"), (29 + 5), (""), (0))
        Sub9774(t38_10052.??0, ("L"), (29 + 7), (""), (0))
        Sub9774(t38_10052.??0, ("Q"), (29 + 9), (""), (0))
        If t27_5537.b4492 >= 0 Then
          t38_10052.b3932 = t27_5537.b4492 + 1
        End If
11281   s65522 = UCase(Func3710(t38_10052.??0))
        If s65522 = "A" Then
          t27_5537.b4492 = 0
        Else
11331     If s65522 = "D" Then
            t27_5537.b4492 = 1
            t27_5537.w4493 = Val(InputMask(Func6661((29 + 11)), "999", Str(t27_5537.w4493), 1213417543))
          Else
11430       If s65522 = "S" Then
              t27_5537.b4492 = 2
              d65526.Number = t27_5537.w4493
              SubText 1, FormatDate(d65526, MakeWild.DateFormat)
              s65532 = InputMask(Func6661((29 + 12)), "99/99/99", "", 1213417543)
              If s65532 <> "" Then
                DateStringToDate "ddmmyy", s65532, d65526
                t27_5537.w4493 = d65526.Number
              End If
11590       Else
11596         If s65522 = "L" Then
                t27_5537.b4492 = 3
                d65526.Number = t27_5537.w4493
                SubText 1, FormatDate(d65526, MakeWild.DateFormat)
                s65532 = InputMask(Func6661((29 + 13)), "99/99/99", "", 1213417543)
                If s65532 <> "" Then
                  DateStringToDate "ddmmyy", s65532, d65526
                  t27_5537.w4493 = d65526.Number
                End If
11756         Else
11762           If s65522 = "Q" Then
                  GoTo 11791
                  GoTo 11791
                End If
              End If
            End If
          End If
        End If
11791
      End Sub

'! Called 1 time
      Sub Sub11802
        Dim s65528 As String
        Dim l65532 As Long

        t27_5537.s0 = t26_4463.s25
        t27_5537.s17 = t39_13986.s169
        t27_5537.s5 = MakeWild.PacketId + "." + t39_13986.s5
        t27_5537.s180 = t39_13986.s169
        t27_5537.s168 = MakeWild.PacketId + "." + t39_13986.s8
        t27_5537.s89 = t39_13986.s11
        t27_5537.s247 = t39_13986.s90
        t27_5537.s326 = t39_13986.s169
        t27_5537.b84 = User.FileDisplay
        t27_5537.l4488 = 4 And 16 And 32 And 512
        t27_5537.b4492 = 3
        t27_5537.w4493 = User.LastNewFiles.D.Number
        If Not Exists(ProgPath + "ONDEMAND.DAT") Then
        Else
12109     Open ProgPath + "ONDEMAND.DAT" For Random As 1 Len = 4107 '! This value should probably be replaced with a "SizeOf" expression
          IndexOpen(ProgPath + "ONDEMAND.IDX")
          s65528 = LeftPad(Str(User.UserId), 10)
          If IndexLookUp(s65528) = s65528 Then
12189       Do While Not EOF(1)
              l65532 = IndexNextRef
              If l65532 < 0 Then
                GoTo 12394
              End If
12230         If l65532 <= LOF(1) Then
                Get 1, l65532, t40_18323 '! 4107 bytes
                If t40_18323.l0 = User.UserId Then
                  t27_5537.b84 = t40_18323.b4
                  t27_5537.t41_393 = t40_18323.t41_5 '! 4095 bytes
                  t27_5537.l4488 = t40_18323.l4100
                  t27_5537.b4492 = t40_18323.b4104
                  t27_5537.w4493 = t40_18323.w4105
                  GoTo 12394
                End If
              End If
12388       Loop
          End If
12394     IndexClose
          Close 1
        End If
12402
      End Sub

'! Called 2 times
      Sub Sub12409
        Dim s65528 As String
        Dim l65532 As Long

        t40_18323.l0 = User.UserId
        t40_18323.b4 = t27_5537.b84
        t40_18323.t41_5 = t27_5537.t41_393 '! 4095 bytes
        t40_18323.l4100 = t27_5537.l4488
        t40_18323.b4104 = t27_5537.b4492
        t40_18323.w4105 = t27_5537.w4493
        Open ProgPath + "ONDEMAND.DAT" For Random As 1 Len = 4107 '! This value should probably be replaced with a "SizeOf" expression
        IndexOpen(ProgPath + "ONDEMAND.IDX")
        l65532 = LOF(1) + 1
        s65528 = LeftPad(Str(User.UserId), 10)
        If IndexLookUp(s65528) = s65528 Then
          l65532 = IndexNextRef
        End If
12630   Put 1, l65532, t40_18323 '! 4107 bytes
        If IndexLookUp(s65528) <> s65528 Then
          IndexAdd LeftPad(Str(User.UserId), 10), l65532
        End If
12690   Close 1
        IndexClose
      End Sub

'! Called 0 times
'!      Sub Sub12705(l65534 As Long)
'!        Dim l65518 As Long
'!        Dim l65522 As Long
'!        Dim s65526 As String
'!        Dim l65530 As Long

'!        If Not Exists(ProgPath + "ONDEMAND.DAT") Then
'!        Else
'!12741     l65530 = - 1
'!          Open ProgPath + "ONDEMAND.DAT" For Random As 1 Len = 4107 '! This value should probably be replaced with a "SizeOf" expression
'!          IndexOpen(ProgPath + "ONDEMAND.IDX")
'!          s65526 = LeftPad(Str(l65534), 10)
'!          If IndexLookUp(s65526) = s65526 Then
'!12828       Do While Not EOF(1)
'!              l65530 = IndexNextRef
'!              If l65530 < 0 Then
'!                GoTo 12935
'!              End If
'!12869         If l65530 <= LOF(1) Then
'!                Get 1, l65530, t40_18323 '! 4107 bytes
'!                If t40_18323.l0 = l65534 Then
'!                  GoTo 12935
'!                End If
'!              End If
'!12929       Loop
'!12935       l65530 = 0
'!          End If
'!12941     If l65530 > 0 Then
'!            If LOF(1) = 1 Then
'!              IndexClose
'!              Close 1
'!              Del ProgPath + "ONDEMAND.DAT"
'!              Del ProgPath + "ONDEMAND.IDX"
'!              GoTo 13299
'!            Else
'!13016         Get 1, LOF(1), t40_18323 '! 4107 bytes
'!              Put 1, l65530, t40_18323 '! 4107 bytes
'!              IndexAdd LeftPad(Str(l65534), 10), l65530
'!              IndexClose
'!              Del TempPath + "ONDEMAND.DEL"
'!              Open TempPath + "ONDEMAND.DEL" For Random As 2 Len = 4107 '! This value should probably be replaced with a "SizeOf" expression
'!13141         For l65530 = 1 To LOF(1) - 1 Step 1
'!                Get 1, l65530, t40_18323 '! 4107 bytes
'!                Put 2, -1, t40_18323 '! 4107 bytes
'!              Next
'!13244         Close 1
'!              Close 2
'!              CopyFile(TempPath + "ONDEMAND.DEL", ProgPath + "ONDEMAND.DAT")
'!              Del TempPath + "ONDEMAND.DEL"
'!            End If
'!          End If
'!13291     IndexClose
'!          Close 1
'!        End If
'!13299
'!      End Sub

'! Called 1 time
      Function Func13306(w65534 As Word) As Boolean
        If (t39_13986.b236(w65534 Div 8 + 1) And b10032(w65534 Mod 8)) <> 0 Then
          Func13306 = -1
        Else
13416     Func13306 = 0
        End If
13422
      End Function

'! Called 8 times
      Function Func13430(i65534 As Integer) As Boolean
        Dim w65531 As Word '! Temporary

        If UserSec.AccessFileList(i65534) And Not Func13306((i65534)) Then
          Func13430 = -1
        Else
13502     Func13430 = 0
        End If
13508
      End Function

'! Called 1 time
      Function Func13516 As Boolean
        Dim l65525 As Long
        Dim l65529 As Long
        Dim i65533 As Integer

        Func13516 = 0
        If Exists(s5533) Then
          i65533 = FreeFile
          Open s5533 For Binary As i65533
          l65529 = LOF(i65533)
          Close i65533
          l65525 = l65529
          If l65525 = 4495 Then
            i65533 = FreeFile
            Open s5533 For Random As i65533 Len = 4495 '! This value should probably be replaced with a "SizeOf" expression
            Get i65533, -1, t27_5537 '! 4495 bytes
            Close i65533
            FlagClear t27_5537.l85, 64
            Func13516 = -1
            GoTo 13703
          End If
        End If
13703
      End Function

'! Called 1 time
      Function Func13711 As Boolean
        Dim l65280 As Long
        Dim l65284 As Long
        Dim i65288 As Integer
        Dim sp65290 As SecurityProfile
        Dim s65531 As String

        GetSecProfile(sp65290, User.SecLevel)
        If sp65290.MenuSet <> "" And Exists(ProgPath + "ONDEMAND.PR" + sp65290.MenuSet) Then
          s65531 = ProgPath + "ONDEMAND.PR" + sp65290.MenuSet
        Else
13819     s65531 = ProgPath + "ONDEMAND.PRO"
        End If
13833   Func13711 = 0
        If Exists(s65531) Then
          i65288 = FreeFile
          Open s65531 For Binary As i65288
          l65284 = LOF(i65288)
          Close i65288
          l65280 = l65284
          If l65280 = 4331 Then
            i65288 = FreeFile
            Open s65531 For Random As i65288 Len = 4331 '! This value should probably be replaced with a "SizeOf" expression
            Get i65288, -1, t39_13986 '! 4331 bytes
            Close i65288
            If t39_13986.s169 = "" Then
              t39_13986.s169 = TempPath
            End If
14021       Func13711 = -1
            GoTo 14035
          End If
        End If
14035
      End Function

'! Called 1 time
      Sub Sub14047
        Dim l65510 As Long '! Temporary
        Dim s65514 As String '! Temporary
        Dim i65516 As Integer '! Temporary
        Dim i65518 As Integer '! Temporary
        Dim s65520 As String '! Temporary
        Dim i65522 As Integer '! Temporary
        Dim s65524 As String
        Dim s65532 As String

        Do
14056
          Sub3265(t38_10052.??0, (Func6661((167 + 0))))
          s65532 = Func6661((7 + t27_5537.b84 - 1))
          Sub9774(t38_10052.??0, ("1"), (167 + 1), (s65532), (0))
          s65532 = Func6661((12 + t27_5537.b4492))
          Sub9774(t38_10052.??0, ("2"), (167 + 3), (s65532), (0))
          Sub9774(t38_10052.??0, ("3"), (167 + 5), (Func6661((3 + Func1415((t27_5537.l4488), (0))))), (4))
          Sub9774(t38_10052.??0, ("4"), (167 + 7), (Func6661((3 + Func1415((t27_5537.l4488), (0))))), (16))
          Sub9774(t38_10052.??0, ("5"), (167 + 9), (Func6661((3 + Func1415((t27_5537.l4488), (0))))), (32))
          Sub9774(t38_10052.??0, ("6"), (167 + 11), (Func6661((3 + Func1415((t27_5537.l4488), (0))))), (512))
          Sub9774(t38_10052.??0, ("S"), (167 + 13), (""), (0))
          Sub9774(t38_10052.??0, ("C"), (167 + 15), (""), (0))
          Sub9774(t38_10052.??0, ("D"), (167 + 17), (""), (0))
          Sub9774(t38_10052.??0, ("Q"), (167 + 19), (""), (0))
          s65524 = UCase(Func3710(t38_10052.??0))
          If s65524 = "1" Then
            Sub9934
          Else
15314       If s65524 = "2" Then
              Sub10760
            Else
15343         If s65524 = "3" Then
                Sub1468(t27_5537.l4488, (4))
              Else
15395           If s65524 = "4" Then
                  Sub1468(t27_5537.l4488, (16))
                Else
15447             If s65524 = "5" Then
                    Sub1468(t27_5537.l4488, (32))
                  Else
15499               If s65524 = "6" Then
                      Sub1468(t27_5537.l4488, (512))
                    Else
15552                 If s65524 = "S" Then
                        Sub8923
                      Else
15581                   If s65524 = "C" Then
                          Del t27_5537.s17 + t27_5537.s5
                          Del t27_5537.s180 + t27_5537.s168
                          If Func892(("ALLFILES")) Then
                            FlagSet t27_5537.l85, 64
                          Else
15699                       FlagClear t27_5537.l85, 64
                          End If
15711                     FlagSet t27_5537.l85, 32
                          Open s5533 For Random As 1 Len = 4495 '! This value should probably be replaced with a "SizeOf" expression
                          Put 1, -1, t27_5537 '! 4495 bytes
                          Close 1
                          Sub2069(("Chaining to proFILES for list generation..."))
                          Chain ProgPath + "ALLFILES.WCX", ""
                        Else
15813                     If s65524 = "D" Then
                            Sub3572
                            If Not Exists(t27_5537.s180 + t27_5537.s168) Then
                              If Exists(t27_5537.s17 + t27_5537.s5) Then
                                If InputYesNo(Func6661((167 + 21)), -1) Then
                                  SendFile(t27_5537.s17 + t27_5537.s5, 1213417543)
                                End If
15968                         Else
15974
                                Print Func6661((167 + 22))
                                WaitEnter
                              End If
16006                       Else
16012                         SendFile(t27_5537.s180 + t27_5537.s168, 1213417543)
                            End If
16043                     Else
16049                       If s65524 = "Q" Then
                              GoTo 16084
                              GoTo 16078
                            End If
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
16078   Loop
16084
      End Sub

'! Called 1 time
      Sub Sub16099
        Dim l63689 As Long '! Temporary
        Dim s63693 As String '! Temporary
        Dim l63695 As Long '! Temporary
        Dim s63697 As String '! Temporary
        Dim s63699 As String '! Temporary
        Dim s63701 As String '! Temporary
        Dim i63703 As Integer '! Temporary
        Dim s63705 As String '! Temporary
        Dim l63707 As Long '! Temporary
        Dim l63709 As Long
        Dim s63711 As String '! Temporary
        Dim i63713 As Integer '! Temporary
        Dim s63715 As String
        Dim s63719 As String
        Dim i63723 As Integer
        Dim i63725 As Integer
        Dim t42_63727(1 To 9) As Type42

        If Not Func13711 Then
          Sub2220(("OnDemand configuration file not found or is unknown format."))
          Sub2316
          DisplayPrompt 1226
          DisplayPrompt 23
          WaitEnter
        Else
16175     Sub11802
          s5533 = TempPath + Trim(Str(User.UserId)) + ".PRO"
          Func13516
          Open ProgPath + "ONDEMAND.LST" For Input As 1
          i63725 = 0
16250     Do While Not EOF(1)
            Inc i63725
            Input #1, t42_63727(i63725).s0
            Input #1, t42_63727(i63725).s65
            Input #1, t42_63727(i63725).s142
            If t42_63727(i63725).s0 = "" Then
              t42_63727(i63725).s0 = t42_63727(i63725).s65
            End If
16513       If t42_63727(i63725).s142 = "" Then
              t42_63727(i63725).s142 = Func6661((161 + 5))
            End If
16629     Loop
16635     Close 1
          If Func1415((t27_5537.l85), (32)) Then
            Sub2069(("Returned from proFILES."))
            GoTo 17374
          Else
16728       Sub2146
            CurrentDateTime dt18317
            Sub2220(("OnDemand executed by " + User.Name + " on " + FormatDate(dt18317.D, MakeWild.DateFormat) + "."))
            If Exists(ProgPath + "ONDEMAND.BBS") Then
              DisplayTextFile(ProgPath + "ONDEMAND.BBS")
            End If
          End If
          Do
16845
            Sub3265(t38_10052.??0, (Func6661((161 + 0))))
16918       For i63723 = 1 To i63725 Step 1
              Sub2954(t38_10052.??0, (Str(i63723)), (t42_63727(i63723).s0), (t42_63727(i63723).s142), (""), (0))
            Next
17165
            Sub9774(t38_10052.??0, ("C"), (161 + 1), (""), (0))
            Sub9774(t38_10052.??0, ("Q"), (161 + 3), (""), (0))
            s63719 = UCase(Func3710(t38_10052.??0))
            s63715 = s63719
            If s63715 = "C" Then
17374         Sub14047
            Else
17386         If s63715 = "Q" Then
                Del s5533
                Del t27_5537.s17 + t27_5537.s5
                Del t27_5537.s180 + t27_5537.s168
                Sub12409
                GoTo 17572
              Else
17478           i63723 = Val(s63719)
                If i63723 > 0 And i63723 <= i63725 Then
                  SendFile(t42_63727(i63723).s65, 1213417543)
                End If
              End If
            End If
17566     Loop
        End If
17572
      End Sub